home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt170.dms / pt170.adf / PlaySound / Test.rexx < prev   
OS/2 REXX Batch file  |  1993-12-19  |  872b  |  26 lines
  1. /* This is a test of the ARexx port in AGMSPlaySound.  It starts up
  2.    AGMSPlaySound, waits a while (for it to finish starting up) then
  3.    lets it play for 5 seconds, then stops it. */
  4.  
  5. SAY "AREXX Script is running AGMSPlaySound."
  6. ADDRESS COMMAND "run AGMSPlaySound files Samples:Beatle#?"
  7.  
  8. SAY "AREXX Script is waiting for the AGMSPlaySound AREXX port to appear."
  9. SAY SHOW("Ports")
  10. DO WHILE ~ SHOW("Ports","AGMSPlaySound")
  11.   SAY "AREXX Script is still waiting for AGMSPlaySound to appear..."
  12.   SAY SHOW("Ports")
  13.   ADDRESS COMMAND "Wait 1 sec"
  14. END
  15. SAY "AREXX Script has found the AGMSPlaySound port."
  16. SAY SHOW("Ports")
  17.  
  18. SAY "AREXX Script realises that Playing is going on.  Waiting for 5 seconds."
  19.  
  20. ADDRESS COMMAND "Wait 5 sec"
  21.  
  22. SAY "AREXX Script is stopping the Playing."
  23. ADDRESS "AGMSPlaySound" "StopPlaying"
  24.  
  25. SAY "AREXX Script has finished.  Playing should stop soon."
  26.